home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple Reference & Presen…tion Library 2 (Reseller)
/
Apple R&P Lib Reseller v2.0.iso
/
3-Demos
/
Third Party Demos
/
Networking
/
MacMainFrame
/
card_5790.txt
< prev
next >
Wrap
Text File
|
1989-07-14
|
12KB
|
607 lines
-- card: 5790 from stack: in
-- bmap block id: 4167
-- flags: 0000
-- background id: 2776
-- name: Terminal Preferences
-- part 9 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=244 top=214 right=280 bottom=406
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=245 top=215 right=279 bottom=389
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseDown
get hilite of button 1
if it is true then
Hide card field "Language Set"
set hilite of button 1 to false
else
set hilite of button 1 to true
show card field "Language Set"
end if
end mouseDown
on mouseLeave
hide card field "Language Set"
set hilite of button 1 to false
end mouseLeave
-- part 11 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=315 top=172 right=228 bottom=469
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Language Set
-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=182 top=104 right=120 bottom=329
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseDown
get hilite of button 2
if it is true then
hide card field "print Fonts1"
hide card field "print Fonts"
set hilite of button 2 to false
else
set hilite of button 2 to true
show card field "Print Fonts"
show card field "Print Fonts1"
end if
end mouseDown
on mouseLeave
hide card field "Print Fonts1"
hide card field "Print Fonts"
set hilite of button 2 to false
end mouseLeave
-- part 19 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=295 top=48 right=122 bottom=459
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Print Fonts1
-- part 20 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=371 top=63 right=179 bottom=408
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 2048
-- line height: 16
-- part name: Print Font Size
-- part 32 (button)
-- low flags: 00
-- high flags: 4006
-- rect: left=235 top=130 right=148 bottom=253
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
set hilite of button id 31 to false
set hilite of button id 32 to true
end mouseUp
-- part 22 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=221 top=62 right=144 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Screen Font Size
-- part 21 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=372 top=78 right=96 bottom=406
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseDown
show card field "Print Font Size"
end mouseDown
on mouseLeave
hide card field "Print Font Size"
end mouseLeave
-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=222 top=79 right=95 bottom=254
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseDown
show card field "screen font size"
show card field "screen font size1"
end mouseDown
on mouseUp
hide card field "Screen Font Size"
hide card field "screen font size1"
end mouseUp
on mouseLeave
put 0 into temp1
hide card field "Screen Font Size"
hide card field "Screen Font Size1"
end mouseLeave
-- part 25 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=389 top=214 right=230 bottom=406
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
-- part 24 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=99 top=49 right=81 bottom=230
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Screen Font Size1
----- HyperTalk script -----
on mouseUp
show card field "Screen Font Size"
end mouseUp
-- part 26 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=389 top=264 right=280 bottom=406
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
-- part 28 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=106 top=216 right=280 bottom=226
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseDown
get hilite of button id 28
if it is true then
hide card field "Screen Size"
set hilite of button id 28 to false
else
set hilite of button id 28 to true
show card field "Screen Size"
end if
end mouseDown
on mouseLeave
hide card field "Screen Size"
set hilite of button id 28 to false
end mouseLeave
-- part 31 (button)
-- low flags: 00
-- high flags: 0006
-- rect: left=325 top=131 right=148 bottom=343
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
set hilite of button id 32 to false
set hilite of button id 31 to true
end mouseUp
-- part 33 (button)
-- low flags: 00
-- high flags: 4005
-- rect: left=235 top=151 right=168 bottom=253
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
get hilite of button id 33
if it = true then
set hilite of button id 33 to false
else
set hilite of button id 33 to true
end if
end mouseUp
-- part 18 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=181 top=119 right=329 bottom=332
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print Fonts
-- part 34 (button)
-- low flags: 00
-- high flags: 4005
-- rect: left=105 top=171 right=191 bottom=123
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
get hilite of button id 34
if it is true then
set hilite of button id 34 to false
else
set hilite of button id 34 to true
end if
end mouseUp
-- part 29 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=23 top=173 right=232 bottom=151
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Screen Size
-- part 35 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=325 top=291 right=310 bottom=407
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
go to card id 7554
end mouseUp
-- part 36 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=104 top=288 right=314 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
go to card id 7554
end mouseUp
-- part 38 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=7 top=308 right=336 bottom=45
-- title width / last selected line: 0
-- icon id / first selected line: 30557 / 30557
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: First
----- HyperTalk script -----
on mouseUp
visual effect scroll right
push card
go to card id 9514
end mouseUp
-- part 39 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=469 top=309 right=337 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
visual effect scroll left
pop card
end mouseUp
-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=472 top=38 right=60 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
show card field id 43
end mouseUp
-- part 43 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=210 top=145 right=280 bottom=453
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
hide card field id 43
end mouseUp
on mouseLeave
hide card field id 43
end mouseLeave
-- part contents for card part 9
----- text -----
US EBCDIC
US ASCII
Austrian/German
Belgian
Brazilian
French Canadian
Danish
English (UK)
Finnish
French AZERTY
French QWERTY
International
Italian
Japanese
Norwegian
Portuguese
Spanish Speaking
Swedish
Swiss French
Swiss German
-- part contents for card part 11
----- text -----
Support is provided for various international keyboards. Use the scroll bar to scan the available options.
-- part contents for card part 18
----- text -----
Bookman
Chicago
Courier
Geneva
Helvetica
Monaco
N Helvetica Narrow
New Century Schlbk
New Your
Palatino
RegencyScript
Times
-- part contents for card part 19
----- text -----
Any text selected on the screen can be directly printed in any font in your system folder.
Click on "Screen Fonts" for sample selections.
-- part contents for card part 20
----- text -----
7
9
10
12
14
18
24
-- part contents for card part 22
----- text -----
7
9
12
14
18
-- part contents for card part 29
----- text -----
Emulation support for IBM 3278-2,3,4,5 and 3279-2A,2B,3A,3B
display terminals.
-- part contents for card part 24
----- text -----
Screen font sizes may be adjusted as preferred.
-- part contents for card part 43
----- text -----
From this screen you can select :
• Print fonts and sizes.
• Display font point sizes.
• Screen size.
• International keyboard support
Click on the various options for more information.